int sumto(int n) 

{ 

int i; 

int sum = 0; 

for (i = 0; i < n; ++i) 

sum += i; 
return sum; 

} 
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int sumto(int n) 

{ 

int i; 

int sum = 0; 

for (i = 0; i < n; ++i) 

{ sum += i; yield () ; } 
return sum; 

} 
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int sumto(int n) 

{ 

int i ; 

int sum = 0; 
int tripct = 10; 

for (i = 0; i < n; ++i) 
{ sum += i; 

if (o = = --tripct) 

{ tripct = 10; yieldO; } 

} 

return sum; 

} 



m 
ru 

m 

Figure 

si 

□ 

W 

W 

a 
a 



Parse Code 
400 



1 


r 


Transform Data 
410 






Introduce 
Structures 
420 




r 


Generate Code 
430 



Figure 4 



Identify Finite- 
State Control 
500 



Separate Stacks 
510 



m 
ru 

H 

~4 
4 



y 

m 
a 

O 



Divide Transfer of 
Control 
520 



Preserve Program 
State 
530 



Figure 5 



typedef struct context { 
int n; int i; int sum; 
} context; 

typedef struct Continuation { 

int state; context ctxt; 
} Continuation; 

bool sumto_cps (Continuation* k) 

{ 

int state = k~>state; 

context* ctxt = &k->ctxt; 

switch (state) { 

case 0: ctxt->sum = 0; ctxt->i = 0; 

k->state = 1; 

return false; 
case 1: { bool tst = (ctxt->i < ctxt->n); 
if (tst) k->state = 2; 
else k->state =3; } 

return false; 
case 2: ctxt->sum += ctxt->i; ++ctxt->i; 

k->state = l; 

return false; 
case 3: return true; 

} 

} 

int sumto(int n) { 
Continuation k; 
bool done = false; 
k.ctxt.n = n; k. state = 0; 
while (Idone) 

done = sumto_cps (&k) ; 
return k. ctxt. sum; 
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WhatNextType 1 

sumtoSLT (int caselab) { 2 

switch (caselab) { 3 

4 

case 2 : 5 

arg2 = POP (void*); argl = POP (void*); 6 

argO = POP (void*); 7 

kCaselab = POP (int); 8 

kFunc = POP (WhatNextType (*) (int )); 9 

case 3: 10 

idlab2 : 11 

{ int n = (int ) (argO) ; 12 

int i = (int ) (argl) ; 13 

int sum = (int ) (arg2) ; 14 

if (i < n) { 15 

sum - sum + i; ++i; 16 

argO = (void *) (n) ; 17 

argl = (void *) (i) ; 18 

arg2 = (void *) (sum) ; 19 

if (--ticks > 0) goto idlab2 ; 2 0 

PUSH (kFunc); PUSH (kCaselab) ; 21 

PUSH(argO) ; 22 

PUSH (argl); PUSH(arg2); 23 

PUSH (sumtoSLT) ; PUSH(2); 24 

return STOP; 25 

} else { 26 

argO = (void *) (sum) ; 27 

if {--ticks > 0) goto idlab4 ; 2 8 

PUSH(kFunc); PUSH (kCaselab) ; 29 

PUSH (argO) ; 30 

PUSH (sumtoSLT) ; PUSH(4); 31 

return STOP ; 32 

j 33 

} 34 

break ; 3 5 

36 

} 37 

} 38 
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